AS
	lv_sql VARCHAR2(32767);
	lv_error_return VARCHAR2(4000);
	lv_error_type ZOEDEVOPS.DVP_ERROR_LOG.ERROR_TYPE%TYPE;
	lv_error_info ZOEDEVOPS.DVP_ERROR_LOG.ERROR_INFO%TYPE;
BEGIN
	-- 设置程序名上下文
	ZOEDEVOPS.ZOEPRC_SET_DEVOPS_CONTEXT('CURRENT_PROGRAM','ZOEDEVOPS.XXX');
	
	
EXCEPTION
WHEN OTHERS THEN
	lv_error_type := 'PLSQL';
	lv_error_info := '{"ERROR_TYPE":"'||lv_error_type||'",';
	lv_error_info := lv_error_info || '"ERROR_CONTENT":';
	lv_error_info := lv_error_info || '{"ERROR_PROGRAM":"'||SYS_CONTEXT('ZOE_DEVOPS_CONTEXT','CURRENT_PROGRAM')||'",';
	lv_error_info := lv_error_info || '"ERROR_MESSAGE":"'||SQLERRM||'",';
	lv_error_info := lv_error_info || '"ERROR_SQL":"'||TRUNC(lv_sql,2000)||'"}}';
	lv_error_return := ZOEDEVOPS.ZOEFUN_WERROR_LOG(lv_error_info);
END;